home *** CD-ROM | disk | FTP | other *** search
/ Eagles Nest BBS 5 / Eagles_Nest_Mac_Collection_Disc_5.TOAST / 7th-College / LearnSpan#1 / English_Spanish I 1.09.1 / background_6538.txt < prev    next >
Text File  |  1990-01-29  |  13KB  |  598 lines
  1. -- background: 6538 from stack: in.1
  2. -- bmap block id: 7120
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. function otherCheck
  8. global scanRate
  9. if hilite of bkgnd button "Other" then
  10.   put true into otherRange
  11.   put bkgnd field "Scan Rate" into scanRate
  12. else
  13.   put false into otherRange
  14.   put 0 into field "Scan Rate"
  15. end if
  16. return otherRange
  17. end otherCheck
  18.  
  19. function rangeCheck
  20. if bkgnd field "Scan Rate" >= 0 and bkgnd field "Scan Rate" <= 30
  21. then put true into inRange
  22. else
  23.   put false into inRange
  24.   beep 2
  25. end if
  26. return inRange
  27. end rangeCheck
  28.  
  29. function noGroup
  30. global A,B,C,D
  31. if not A and not B and not C and not D then
  32.   put true into zip
  33.   beep 2
  34. else put false into zip
  35. return zip
  36. end noGroup
  37.  
  38.  
  39.  
  40.  
  41. -- part 1 (button)
  42. -- low flags: 00
  43. -- high flags: 6005
  44. -- rect: left=20 top=77 right=99 bottom=120
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 0 / 0
  47. -- text alignment: 1
  48. -- font id: 0
  49. -- text size: 12
  50. -- style flags: 0
  51. -- line height: 16
  52. -- part name: groupA
  53. ----- HyperTalk script -----
  54. on mouseUp
  55.  
  56.   --FlashStack Ready
  57.  
  58.   global A
  59.   if hilite of bkgnd button "groupA" then
  60.     put true into A
  61.   else
  62.     put false into A
  63.   end if
  64. end mouseUp
  65.  
  66.  
  67.  
  68. -- part 2 (button)
  69. -- low flags: 00
  70. -- high flags: 2005
  71. -- rect: left=20 top=98 right=122 bottom=374
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 0 / 0
  74. -- text alignment: 1
  75. -- font id: 0
  76. -- text size: 12
  77. -- style flags: 0
  78. -- line height: 16
  79. -- part name: groupB
  80. ----- HyperTalk script -----
  81. on mouseUp
  82.   global B
  83.   if hilite of bkgnd button "groupB" then
  84.     put true into B
  85.   else
  86.     put false into B
  87.   end if
  88. end mouseUp
  89.  
  90.  
  91.  
  92. -- part 3 (button)
  93. -- low flags: 00
  94. -- high flags: 2005
  95. -- rect: left=20 top=121 right=143 bottom=120
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 0 / 0
  98. -- text alignment: 1
  99. -- font id: 0
  100. -- text size: 12
  101. -- style flags: 0
  102. -- line height: 16
  103. -- part name: groupC
  104. ----- HyperTalk script -----
  105. on mouseUp
  106.  
  107.   --FlashStack
  108.   global C
  109.   if hilite of bkgnd button "groupC" then
  110.     put true into C
  111.   else
  112.     put false into C
  113.   end if
  114. end mouseUp
  115.  
  116.  
  117.  
  118. -- part 4 (button)
  119. -- low flags: 00
  120. -- high flags: 2005
  121. -- rect: left=20 top=142 right=164 bottom=120
  122. -- title width / last selected line: 0
  123. -- icon id / first selected line: 0 / 0
  124. -- text alignment: 1
  125. -- font id: 0
  126. -- text size: 12
  127. -- style flags: 0
  128. -- line height: 16
  129. -- part name: groupD
  130. ----- HyperTalk script -----
  131. on mouseUp
  132.  
  133.   --FlashStack Ready
  134.   global D
  135.   if hilite of bkgnd button "groupD" then
  136.     put true into D
  137.   else
  138.     put false into D
  139.   end if
  140. end mouseUp
  141.  
  142.  
  143.  
  144. -- part 5 (button)
  145. -- low flags: 00
  146. -- high flags: A006
  147. -- rect: left=22 top=189 right=211 bottom=122
  148. -- title width / last selected line: 0
  149. -- icon id / first selected line: 0 / 0
  150. -- text alignment: 1
  151. -- font id: 0
  152. -- text size: 12
  153. -- style flags: 0
  154. -- line height: 16
  155. -- part name: Slow
  156. ----- HyperTalk script -----
  157. on mouseUp
  158.   global scanRate
  159.   put 5 into scanRate
  160.   if not hilite of bkgnd button "Slow" then
  161.     set hilite of bkgnd button "slow" to true
  162.   end if
  163.   set hilite of background button "Fast" to false
  164.   set hilite of background button "Medium" to false
  165.   set hilite of background button "Other" to false
  166. end mouseUp
  167.  
  168.  
  169.  
  170. -- part 6 (button)
  171. -- low flags: 00
  172. -- high flags: E006
  173. -- rect: left=22 top=210 right=232 bottom=122
  174. -- title width / last selected line: 0
  175. -- icon id / first selected line: 0 / 0
  176. -- text alignment: 1
  177. -- font id: 0
  178. -- text size: 12
  179. -- style flags: 0
  180. -- line height: 16
  181. -- part name: Medium
  182. ----- HyperTalk script -----
  183. on mouseUp
  184.   global scanRate
  185.   put 3 into scanRate
  186.   if not hilite of bkgnd button "Medium" then
  187.     set hilite of bkgnd button "Medium" to true
  188.   end if
  189.   set hilite of bkgnd button "Slow" to false
  190.   set hilite of bkgnd button "Fast" to false
  191.   set hilite of bkgnd button "Other" to false
  192. end mouseUp
  193.  
  194.  
  195.  
  196. -- part 7 (button)
  197. -- low flags: 00
  198. -- high flags: A006
  199. -- rect: left=22 top=231 right=253 bottom=122
  200. -- title width / last selected line: 0
  201. -- icon id / first selected line: 0 / 0
  202. -- text alignment: 1
  203. -- font id: 0
  204. -- text size: 12
  205. -- style flags: 0
  206. -- line height: 16
  207. -- part name: Fast
  208. ----- HyperTalk script -----
  209.  
  210. on mouseUp
  211.   global scanRate
  212.   put 1 into scanRate
  213.   if not hilite of bkgnd button "Fast" then
  214.     set hilite of bkgnd button "Fast" to true
  215.   end if
  216.   set hilite of bkgnd button "Slow" to false
  217.   set hilite of bkgnd button "Medium" to false
  218.   set hilite of bkgnd button "Other" to false
  219. end mouseUp
  220.  
  221.  
  222.  
  223. -- part 8 (button)
  224. -- low flags: 00
  225. -- high flags: A006
  226. -- rect: left=120 top=189 right=211 bottom=177
  227. -- title width / last selected line: 0
  228. -- icon id / first selected line: 0 / 0
  229. -- text alignment: 1
  230. -- font id: 0
  231. -- text size: 12
  232. -- style flags: 0
  233. -- line height: 16
  234. -- part name: Other
  235. ----- HyperTalk script -----
  236. on mouseUp
  237.   global scanRate
  238.   if not hilite of bkgnd button "Other" then
  239.     set hilite of bkgnd button "Other" to true
  240.   end if
  241.   set hilite of bkgnd button "Slow" to false
  242.   set hilite of bkgnd button "Medium" to false
  243.   set hilite of bkgnd button "Fast" to false
  244.   put 0 into bkgnd field 1
  245.   type tab
  246. end mouseUp
  247.  
  248.  
  249.  
  250. -- part 9 (field)
  251. -- low flags: 00
  252. -- high flags: 0002
  253. -- rect: left=179 top=191 right=209 bottom=220
  254. -- title width / last selected line: 0
  255. -- icon id / first selected line: 0 / 0
  256. -- text alignment: 0
  257. -- font id: 0
  258. -- text size: 12
  259. -- style flags: 0
  260. -- line height: 16
  261. -- part name: Scan Rate
  262.  
  263.  
  264. -- part 10 (button)
  265. -- low flags: 00
  266. -- high flags: 2000
  267. -- rect: left=433 top=268 right=335 bottom=503
  268. -- title width / last selected line: 0
  269. -- icon id / first selected line: 0 / 0
  270. -- text alignment: 1
  271. -- font id: 0
  272. -- text size: 12
  273. -- style flags: 0
  274. -- line height: 16
  275. -- part name: Words
  276. ----- HyperTalk script -----
  277. on mouseUp
  278.   --FlashStack Version
  279.   global A,B,C,D,minA,minB,minC,minD,scanRate,offset
  280.  
  281.   if not otherCheck() then
  282.     if noGroup()
  283.     then answer "You Must Choose At Least One Word Group" with "OK"
  284.   else go card (firstGroup() + offset)
  285. else
  286.   if not rangeCheck() then
  287.     answer "ScanRate must be between 0 and 30 secs" with "OK"
  288.     click at the loc of background button "Other"
  289.     type tab
  290.   else
  291.     if noGroup()
  292.     then answer "You Must Choose At Least One Word Group" with "OK"
  293.   else go card (firstGroup() + offset)
  294. end if
  295. end if
  296. end mouseUp
  297.  
  298.  
  299.  
  300. -- part 11 (button)
  301. -- low flags: 00
  302. -- high flags: A006
  303. -- rect: left=259 top=191 right=211 bottom=376
  304. -- title width / last selected line: 0
  305. -- icon id / first selected line: 0 / 0
  306. -- text alignment: 1
  307. -- font id: 0
  308. -- text size: 12
  309. -- style flags: 0
  310. -- line height: 16
  311. -- part name: Show Answers
  312. ----- HyperTalk script -----
  313. on mouseUp
  314.   global delayTime,showAnswers,offSet
  315.  
  316.   if not hilite of bkgnd button "Show Answers" then
  317.     set hilite of bkgnd button "Show Answers" to true
  318.   end if
  319.   set hilite of background button "Hide Answers" to false
  320.   put true into showAnswers
  321.   set lockScreen to true
  322.   go card (offSet + 1)
  323.   show bkgnd field "Translation"
  324.   show bkgnd field "Source"
  325.  
  326.   go card ID 6699
  327.   set lockScreen to false
  328.  
  329. end mouseUp
  330.  
  331.  
  332.  
  333. -- part 12 (button)
  334. -- low flags: 00
  335. -- high flags: E006
  336. -- rect: left=259 top=211 right=231 bottom=376
  337. -- title width / last selected line: 0
  338. -- icon id / first selected line: 0 / 0
  339. -- text alignment: 1
  340. -- font id: 0
  341. -- text size: 12
  342. -- style flags: 0
  343. -- line height: 16
  344. -- part name: Hide Answers
  345. ----- HyperTalk script -----
  346. on mouseUp
  347.   global delayTime,reverse,offSet,showAnswers
  348.  
  349.   if not hilite of bkgnd button "Hide Answers" then
  350.     set hilite of bkgnd button "HIde Answers" to true
  351.   end if
  352.   set hilite of background button "Show Answers" to false
  353.   set lockScreen to true
  354.   put false into showAnswers
  355.   go card (offSet + 1)
  356.   if not reverse then
  357.     hide bkgnd field "Translation"
  358.   else
  359.     hide bkgnd field "Source"
  360.   end if
  361.  
  362.   go card ID 6699
  363.   set lockScreen to false
  364. end mouseUp
  365.  
  366.  
  367.  
  368. -- part 16 (button)
  369. -- low flags: 00
  370. -- high flags: A005
  371. -- rect: left=206 top=306 right=328 bottom=318
  372. -- title width / last selected line: 0
  373. -- icon id / first selected line: 0 / 0
  374. -- text alignment: 1
  375. -- font id: 0
  376. -- text size: 12
  377. -- style flags: 0
  378. -- line height: 16
  379. -- part name: Reverse Lists
  380. ----- HyperTalk script -----
  381. on mouseUp
  382.   global reverse,offSet,showAnswers
  383.  
  384.   if hilite of bkgnd button "Reverse Lists" then
  385.     put true into reverse
  386.   else
  387.     put false into reverse
  388.   end if
  389.   if not showAnswers then
  390.     set lockscreen to true
  391.     go card (offSet + 1)
  392.     if not reverse then
  393.       hide bkgnd field "Translation"
  394.       show bkgnd field "Source"
  395.     else
  396.       hide bkgnd field "Source"
  397.       show bkgnd field "Translation"
  398.     end if
  399.     go back
  400.     set lockscreen to false
  401.   end if
  402. end mouseUp
  403.  
  404.  
  405.  
  406.  
  407.  
  408. -- part 22 (button)
  409. -- low flags: 00
  410. -- high flags: A005
  411. -- rect: left=206 top=288 right=307 bottom=323
  412. -- title width / last selected line: 0
  413. -- icon id / first selected line: 0 / 0
  414. -- text alignment: 1
  415. -- font id: 0
  416. -- text size: 12
  417. -- style flags: 0
  418. -- line height: 16
  419. -- part name: Delay Answers
  420. ----- HyperTalk script -----
  421. on mouseUp
  422.   global scanRate,delayTime,showAnswers
  423.  
  424.   if hilite of bkgnd button "Delay Answers" then
  425.     put true into delayTime
  426.   else
  427.     put false into delayTime
  428.   end if
  429.  
  430. end mouseUp
  431.  
  432.  
  433.  
  434. -- part 25 (button)
  435. -- low flags: 00
  436. -- high flags: A005
  437. -- rect: left=206 top=267 right=289 bottom=335
  438. -- title width / last selected line: 0
  439. -- icon id / first selected line: 0 / 0
  440. -- text alignment: 1
  441. -- font id: 0
  442. -- text size: 12
  443. -- style flags: 0
  444. -- line height: 16
  445. -- part name: Scan Backwards
  446. ----- HyperTalk script -----
  447. on mouseUp
  448.   global ScanReverse
  449.   if hilite of bkgnd button "Scan Backwards" then
  450.     put true into ScanReverse
  451.   else
  452.     put false into ScanReverse
  453.   end if
  454. end mouseUp
  455.  
  456.  
  457.  
  458. -- part 26 (button)
  459. -- low flags: 00
  460. -- high flags: 2000
  461. -- rect: left=433 top=126 right=192 bottom=503
  462. -- title width / last selected line: 0
  463. -- icon id / first selected line: 32462 / 32462
  464. -- text alignment: 1
  465. -- font id: 0
  466. -- text size: 12
  467. -- style flags: 0
  468. -- line height: 16
  469. -- part name: Help
  470. ----- HyperTalk script -----
  471. on mouseUp
  472.   --FlashStack Ready
  473.   global scanRate,A,B,C,D
  474.  
  475.   if noGroup()
  476.   then answer "You Must Choose At Least One Word Group" with "OK"
  477. else
  478.   if otherCheck() and not rangeCheck() then
  479.     answer "ScanRate must be between 0 and 30 sces" with "OK"
  480.     click at the loc of background button "Other"
  481.     type tab
  482.   else go card 3
  483. end if
  484. end mouseUp
  485.  
  486.  
  487.  
  488. -- part 28 (button)
  489. -- low flags: 00
  490. -- high flags: 2000
  491. -- rect: left=433 top=54 right=121 bottom=502
  492. -- title width / last selected line: 0
  493. -- icon id / first selected line: 20098 / 20098
  494. -- text alignment: 1
  495. -- font id: 0
  496. -- text size: 12
  497. -- style flags: 0
  498. -- line height: 16
  499. -- part name: Home
  500. ----- HyperTalk script -----
  501. on mouseUp
  502.   --FlashStack Version
  503.   global scanRate,A,B,C,D
  504.  
  505.   if noGroup()
  506.   then answer "You Must Choose At Least One Word Group" with "OK"
  507. else
  508.   if otherCheck() and not rangeCheck() then
  509.     answer "ScanRate must be between 0 and 30 secs" with "OK"
  510.     click at loc of background button "Other"
  511.     type tab
  512.   else go home
  513. end if
  514. end mouseUp
  515.  
  516.  
  517.  
  518. -- part 30 (button)
  519. -- low flags: 00
  520. -- high flags: 2000
  521. -- rect: left=433 top=198 right=261 bottom=502
  522. -- title width / last selected line: 0
  523. -- icon id / first selected line: 29114 / 29114
  524. -- text alignment: 1
  525. -- font id: 0
  526. -- text size: 12
  527. -- style flags: 0
  528. -- line height: 16
  529. -- part name: Return
  530. ----- HyperTalk script -----
  531. on mouseUp
  532.   --FlashStack Version
  533.   global scanRate,A,B,C,D
  534.  
  535.   if noGroup()
  536.   then answer "You Must Choose At Least One Word Group" with "OK"
  537. else
  538.   if otherCheck() and not rangeCheck() then
  539.     answer "ScanRate must be between 0 and 30 secs" with "OK"
  540.     click at the loc of background button "Other"
  541.     type tab
  542.   else go back
  543. end if
  544. end mouseUp
  545.  
  546.  
  547.  
  548. -- part 31 (button)
  549. -- low flags: 00
  550. -- high flags: E006
  551. -- rect: left=20 top=288 right=307 bottom=123
  552. -- title width / last selected line: 0
  553. -- icon id / first selected line: 0 / 0
  554. -- text alignment: 1
  555. -- font id: 0
  556. -- text size: 12
  557. -- style flags: 0
  558. -- line height: 16
  559. -- part name: In Sequence
  560. ----- HyperTalk script -----
  561. on mouseUp
  562.   global inOrder
  563.   if not hilite of bkgnd button "In Sequence" then
  564.     set hilite of bkgnd button "In Sequence" to true
  565.   end if
  566.   set hilite of background button "In Random Order" to false
  567.   put true into inOrder
  568.  
  569. end mouseUp
  570.  
  571.  
  572.  
  573. -- part 32 (button)
  574. -- low flags: 00
  575. -- high flags: A006
  576. -- rect: left=20 top=308 right=327 bottom=151
  577. -- title width / last selected line: 0
  578. -- icon id / first selected line: 0 / 0
  579. -- text alignment: 1
  580. -- font id: 0
  581. -- text size: 12
  582. -- style flags: 0
  583. -- line height: 16
  584. -- part name: In Random Order
  585. ----- HyperTalk script -----
  586. on mouseUp
  587.   global inOrder
  588.  
  589.   if not hilite of bkgnd button "In Random Order" then
  590.     set hilite of bkgnd button "In Random Order" to true
  591.   end if
  592.   set hilite of background button "In Sequence" to false
  593.   put false into inOrder
  594.  
  595.  
  596. end mouseUp
  597.  
  598.